home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 04.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  88 lines
  1. 1 rem ********************************
  2. 2 rem *   irrgaerten und maeuse iii  *
  3. 3 rem * <c> 1985 bei michael nickles *
  4. 4 rem ********************************
  5. 5 poke53280,0:poke53281,0:print"[147]maus iii[146]"
  6. 10 m%=1000:dimm(m%,3):rem gedaechtnis
  7. 20 ri$(0)="norden"
  8. 22 ri$(1)="osten"
  9. 24 ri$(2)="sueden"
  10. 26 ri$(3)="westen"
  11. 30 mz=1           :rem ged. zeiger
  12. 40 fori1=0tom%    :rem gedaechtnis
  13. 42 : fori2=0to3   :rem loeschen
  14. 44 :   m(i1,i2)=-1
  15. 46 : nexti2
  16. 48 nexti1
  17. 100 print"biite geben sie die anfangsrichtung ein:
  18. 110 [153]"norden=1
  19. 120 print"osten =2
  20. 130 [153]"sueden=3
  21. 140 print"westen=4
  22. 150 [161]i$:[139][197](i$)[178]0[176][197](i$)[177]3[167]150
  23. 160 x[178][197](i$)[171]1:[137]1141
  24. 1000 [143] hauptprogramm ---------------------------------------------------------
  25. 1001 :
  26. 1100 [143] richtung ausprobieren
  27. 1101 :
  28. 1110 x[178]0            :[143] 1. versuch = n
  29. 1115 :  [141]5000   :[143] sackgasse ?
  30. 1120 :  [139]m(mz,x)[179][177][171]1[167]1200
  31. 1125 :  [153]"kann ich nach ";ri$(x);" gehen ?";            :[143] x probieren
  32. 1130 :  [161]i$:[139]i$[179][177]"j"[175]i$[179][177]"n"[175]i$[179][177]" "[167]1130
  33. 1131 :  [139]i$[178]" "[167]10000
  34. 1135 :  [139]i$[178]"n"[167][153]" nein.":m(mz,x)[178][171]2:x[178]x[170]1:[137]1115 :[143] x geht nicht
  35. 1140 [153]" ja."    :[143] x geht
  36. 1141 :  m(mz,x)[178]mz[170]1:[143] richt. merken
  37. 1142 :  mz[178]mz[170]1     :[143] bewegen
  38. 1144 :  [139]mz[177]m%[167][153]"habe mich verirrt - gebe auf !":[128]:[143] memory full
  39. 1146 :    g[178]x:[141]6000:x[178]g                                 :[143] gegenbefehl
  40. 1148 :    m(mz,x)[178]mz[171]1
  41. 1150 :              :[143] merken
  42. 1152 :    g[178]x:[141]6000:x[178]g                                 :[143] gegenbefehl
  43. 1160 :  [137]1000
  44. 1200 :  [139]m(mz,x)[178][171]2[167]x[178]x[170]1:[137]1115                      :[143] x geht nicht
  45. 1210 :  [139]m(mz,x)[177][171]1[167]x[178]x[170]1:[137]1115                      :[143] prioritaet !!!
  46. 5000 [143] feststellen ob maus in sackgasse ist (3 * -2) -------------------------
  47. 5001 :
  48. 5010 ic[178]0
  49. 5015 [129]n[178]0[164]3
  50. 5020 : [139]m(mz,n)[178][171]2[167]ic[178]ic[170]1
  51. 5030 [130]n
  52. 5040 [139]ic[179]3[167][142]
  53. 5050 [139]ic[178]4[167][153]"ich lasse mich nicht reinlegen !":[128]
  54. 5100 [143] backtracking - schritt zurueck ----------------------------------------
  55. 5101 :
  56. 5110 mz[178]mz[171]1   :[143] zeiger um 1 zurueck
  57. 5120 [129]n[178]0[164]3
  58. 5125 : m(mz[170]1,n)[178][171]1                                    :[143] irrweg loeschen
  59. 5130 : [139]m(mz,n)[179][177]mz[170]1[167]5140
  60. 5134 : m(mz,n)[178][171]2                                      :[143] irrweg loeschen
  61. 5136 : g[178]n:[141]6000
  62. 5137 : [153]"ich gehe nach "ri$(g)"."
  63. 5140 [130]n
  64. 5145 x[178]0       :[143] reset auf n
  65. 5147 [139]mz[178]1[167][153]"bin wieder am eingang!":[151]109,0:[146]198,1:[138]
  66. 5150 [137]5000  :[143] pruefen
  67. 6000 [143] gegenbefehl bilden ----------------------------------------------------
  68. 6001 :
  69. 6010 : [139]g[178]0[167]g[178]2:[137]6080
  70. 6020 : [139]g[178]1[167]g[178]3:[137]6080
  71. 6030 : [139]g[178]2[167]g[178]0:[137]6080
  72. 6040 : [139]g[178]3[167]g[178]1:[137]6080
  73. 6080 [142]
  74. 10000 [143] loesung ausgeben -----------------------------------------------------
  75. 10001 :
  76. 10010 [153]"loaddurch folgende befehlsfolge gelangt man vom eingang zu meinem ";
  77. 10020 [153]"jetzigen standort:"
  78. 10030 [129]i1[178]0[164]mz[171]1
  79. 10040 : [129]i2[178]0[164]3
  80. 10045 :   [139]m(i1,i2)[177]0[175]m(i1,i2)[179][177]i1[171]1[167][153]ri$(i2)",";:i2[178]4
  81. 10050 : [130]i2
  82. 10060 [130]i1
  83. 10070 [153]
  84. 10080 [153]"soll ich weitermachen ?"
  85. 10090 [161]i$:[139]i$[179][177]"j"[175]i$[179][177]"n"[167]10090
  86. 10095 [139]i$[178]"j"[167]1125:[143] weitermachen
  87. 10099 [128]
  88.